-- card: 4011 from stack: in -- bmap block id: 4539 -- flags: 0000 -- background id: 2617 -- name: More Talk Tools -- part 1 (field) -- low flags: 00 -- high flags: 2004 -- rect: left=15 top=62 right=320 bottom=84 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- On MouseEnter global text put card field 1 into text talk text, 190, 100 pass MouseEnter End MouseEnter -- part 2 (button) -- low flags: 00 -- high flags: A004 -- rect: left=370 top=277 right=297 bottom=453 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Say It Now. ----- HyperTalk script ----- on mouseUp Talk card field speak, card field rate, card field pitch end mouseUp -- part 4 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=95 right=115 bottom=366 -- title width / last selected line: 0 -- icon id / first selected line: 26020 / 26020 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: pitch up. ----- HyperTalk script ----- on mouseUp add 10 to card field pitch end mouseUp -- part 5 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=348 top=140 right=160 bottom=367 -- title width / last selected line: 0 -- icon id / first selected line: 26020 / 26020 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: rate up. ----- HyperTalk script ----- on mouseUp add 10 to card field rate end mouseUp -- part 6 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=346 top=117 right=135 bottom=366 -- title width / last selected line: 0 -- icon id / first selected line: 15279 / 15279 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: pitch down. ----- HyperTalk script ----- on mouseUp subtract 10 from card field pitch end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=347 top=162 right=179 bottom=367 -- title width / last selected line: 0 -- icon id / first selected line: 15279 / 15279 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: rate down ----- HyperTalk script ----- on mouseUp subtract 10 from card field rate end mouseUp -- part 8 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=371 top=99 right=134 bottom=428 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 20 -- text size: 24 -- style flags: 0 -- line height: 32 -- part name: Pitch -- part 10 (field) -- low flags: 00 -- high flags: 0004 -- rect: left=371 top=143 right=178 bottom=428 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 20 -- text size: 24 -- style flags: 0 -- line height: 32 -- part name: Rate -- part 11 (field) -- low flags: 00 -- high flags: 2004 -- rect: left=335 top=179 right=276 bottom=487 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 14 -- style flags: 256 -- line height: 18 -- part name: speak -- part 13 (field) -- low flags: 00 -- high flags: 2004 -- rect: left=94 top=63 right=320 bottom=325 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Copy XCMD -- part 12 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=149 top=291 right=316 bottom=263 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ResCopy Mover ----- HyperTalk script ----- on mouseUp --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT! put "NAUGC Hyper#14 (BMUG):Talking Tools" into sourceStack put the long name of this stack into destStack delete first word of destStack delete first character of destStack delete last character of destStack if sourceStack<>destStack then set lockscreen to true set lockmessages to true push this card go stack sourceStack ResCopy sourceStack,destStack,"XCMD","ResCopy" get the result ResCopy sourceStack,destStack,"XCMD","Talk" -- here is where you would copy more resources. pop card choose button tool click at location of card button "ResCopy Mover" domenu clear button choose browse tool set lockmessages to false set lockscreen to false if first char of it is "E" then -- you could put better error handling here put it into the message box end if end if end mouseUp -- part contents for card part 1 ----- text ----- To make this text speak, just pass the cursor through this field. You don't need to click. -- part contents for card part 8 ----- text ----- 150 -- part contents for card part 10 ----- text ----- 150 -- part contents for card part 11 ----- text ----- Use these above controls to change the sound of this text. -- part contents for background part 6 ----- text ----- More Talk Tools -- part contents for card part 13 ----- text ----- "How can I make MY stacks talk?" HyperCard uses an external command (XCMD) resource called "Talk" to access the MacinTalk driver (which must be in your system folder). Its format is: Talk <text>, <rate>, <pitch>. There are two ways to move this XCMD to your home stack. One way is to use ResEdit. A simpler way is to use this ResCopy Mover button. Just COPY and PASTE it into your home stack, then click it. It'll make the transfer, then go away.